home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / GAMES051.DSK / SINBAD THE SAILOR.bas < prev    next >
BASIC Source File  |  2014-09-09  |  7KB  |  64 lines
  1. 0  CLEAR : PRINT  CHR$(4);"MAXFILES 1":TN = 770:X = 768:Y = 769:D$ =  CHR$(4): CALL  -936: TEXT : VTAB 6: FLASH : PRINT "NOW PREPARING FOR PEACE TALKS": NORMAL 
  2. 1  PRINT D$;"BLOAD SOUNDS"
  3. 2  DIM C(24,5): DIM W(2,20):N$(0) = "IRAQ":N$(1) = "IRAN"
  4. 3  PRINT D$;"OPEN COMMODITIES": PRINT D$;"READ COMMODITIES": FOR N = 0 TO 2: FOR N1 = 1 TO 20: INPUT W(N,N1): NEXT : NEXT : INPUT P$(0): INPUT P$(1): PRINT D$;"CLOSE"
  5. 8  VTAB 4: GOSUB 18: GOTO 1000
  6. 10 E1% =  RND(1) *3 +1:I1% =  RND(1) *3 +4:E% = A(CN,E1%):I% = A(CN,I1%):C(CN,2) = E%:C(CN,3) = 1 + INT( RND(1) *W(2,E%)):C(CN,4) = I%:C(CN,5) = 1 + INT( RND(1) *W(2,I%)) + INT(W(2,I%)/2): RETURN 
  7. 18  DATA    12,13,8,20,19,15,2,17,18,9,11,10,9,11,14,12,19,15,1,3,4,2,7,19,9,5,10,1,3,4,15,19,20,5,6,14,16,17,18,8,13,18,6,7,4,16,17,19,19,1,20,12,15,6,2,3,5,1,3,19,13,14,20,2,4,7,1,5,15,20,2,14,12,13,19,5,6,15,10,11,16,8,13,18,7,8,4,5,17
  8. 20  DATA   7,20,1,3,19,16,17,7,10,11,9,3,3,6,17,12,9,14,15,4,12,8,2,16,17,18,9,10,11,2,8,11,4,5,20,9,10,12,7,14,18,12,1,13,1,2,3,2,6,7,4,5,20,11,14
  9. 22  DIM A(24,6): FOR N = 1 TO 24: FOR N1 = 1 TO 6: READ A(N,N1): NEXT N1: NEXT N
  10. 24  RETURN 
  11. 50  VTAB 16: CALL  -958: VTAB 17: PRINT "GENERAL OF ";N$(N1): VTAB 17: HTAB 20: INPUT "COUNTRY #";CN$:CN =  VAL(CN$): IF CN <1  OR CN >24  THEN : FLASH : PRINT "WE HAVE NO SUCH COUNTRY GENERAL": NORMAL : FOR T = 1 TO 3000: NEXT : GOTO 50
  12. 51  IF C(CN,1) >0  THEN : POKE X,80: POKE Y,70: CALL TN: PRINT "": PRINT C$(CN);" ALREADY HAS AN ALLY": PRINT "NEGOTIATED BY AMBASSADOR ";P$(C(CN,1)): FOR T = 1 TO 2000: NEXT : GOTO 50
  13. 52 CP =  RND(1) *10: IF CP >8  THEN : PRINT C$(CN);" DOESN'T TRUST YOU": PRINT "PICK ANOTHER NATION": FOR T = 1 TO 3000: NEXT : GOTO 50
  14. 53  GOSUB 10
  15. 54  PRINT C$(CN);" IS INTERESTED!": PRINT "": PRINT "OFFERS:";C(CN,3)" ";W$(C(CN,2)): PRINT " WANTS:";C(CN,5);" ";W$(C(CN,4)): PRINT "": FOR A = 1 TO 8: POKE X,100: POKE Y,3: CALL TN: NEXT 
  16. 55  VTAB 20: HTAB 28: PRINT "YOURS:";W(N1,C(CN,2)): VTAB 21: HTAB 28: PRINT "YOURS:";W(N1,C(CN,4))
  17. 57  INPUT "1) ACCEPT   2) REJECT ";R$: IF R$ < >"1"  THEN : RETURN 
  18. 58 Q3 = W(N1,C(CN,4)) -C(CN,5): IF Q3 <0  THEN : VTAB 21: HTAB 1: CALL  -958: PRINT "SORRY-YOU DON'T HAVE ENOUGH TO TRADE": FOR Z = 1 TO 3: POKE X,100: POKE Y,10: CALL TN: NEXT : FOR Z = 1 TO 3000: NEXT : RETURN 
  19. 59 W(N1,C(CN,4)) = Q:W(N1,C(CN,2)) = W(N1,C(CN,2)) +C(CN,3)
  20. 60 H = 1:V = CN +3: IF CN >12  THEN :H = 22:V = CN -9
  21. 67  VTAB V: HTAB H: FLASH : PRINT "    ";C$(CN):C(CN,1) = N1 +1: FOR T = 1 TO 2000: NEXT : VTAB V: HTAB H: NORMAL : INVERSE : PRINT  LEFT$(P$(N1),2);"  ";C$(CN): NORMAL : VTAB 17: CALL  -958: HTAB 5
  22. 70  FLASH : PRINT "AN ALLIANCE HAS BEEN MADE": FOR A = 1 TO 500: NEXT : NORMAL : RETURN 
  23. 1000  REM 
  24. 1001  GOSUB 5000
  25. 1003  TEXT : HOME : HTAB 12: PRINT "***TREATIES***"
  26. 1004  PRINT "": PRINT "YOU NOW HAVE COMPLETED THE STRUGGLE FOR": PRINT "POWER. HAVING ACCUMULATED A VAST SUPPLY": PRINT "OF RESOURCES-YOU ARE READY TO BARGAIN": PRINT "ON AN INTERNATIONAL SCALE FOR ALLIES.": PRINT "IF YOU ARE TOO LOW ON GOODS YOU WILL NOT"
  27. 1005  PRINT "BE ABLE TO OBTAIN MANY ALLIES. IF YOU ": PRINT "ARE NOT ABLE TO WIN OVER ANY YOU WILL": PRINT "BE GIVEN AT LEAST ONE COUNTRY TO START": PRINT "WITH IN THE FINAL BATTLE": PRINT "": PRINT "": PRINT "TO START THE FINAL APOCALYPSE YOU WILL"
  28. 1006  PRINT "BE GIVE 2 CARRIERS AND 2 SUBMARINES": PRINT "ANY ADDITIONAL SHIPS OR THE SUPPLIES TO": PRINT "RUN THESE VESSELS WILL BE BASED ON WHAT": PRINT "YOU END UP WITH AT THE END OF THIS": PRINT "SCENARIO...GOOD LUCK!"
  29. 1010  PRINT "": PRINT ""
  30. 1013  VTAB 23: PRINT "TO GO PRESS SPACE BAR..."
  31. 1014 J =  PEEK( -16384): POKE  -16368,0: IF J <128  THEN  GOTO 1014
  32. 1015  HOME : VTAB 1: HTAB 12: PRINT "***TREATIES***": FOR N = 1 TO 12:T = 1: IF N >9  THEN T = 0
  33. 1016  VTAB N +3: HTAB 1 +T: PRINT N;") ";C$(N): VTAB N +3: HTAB 22: PRINT N +12;") ";C$(N +12): NEXT N
  34. 1018  FOR N1 = 0 TO 1: FOR A = 1 TO 12: POKE X,200: POKE Y,5: CALL TN: NEXT :NC = NC +1: IF NC = 30  THEN : CALL  -936: FLASH : VTAB 6: PRINT "TIME HAS ELAPSED FOR NEGOTIATIONS": NORMAL : FOR A = 1 TO 3000: NEXT : GOTO 1050
  35. 1019  VTAB 16: CALL  -958: VTAB 17: FLASH : PRINT "GENERAL OF ";N$(N1): NORMAL : HTAB 5: PRINT "1) NEGOTIATE": HTAB 5: PRINT "2) PASS TO OPPONENT": GET J$
  36. 1020  IF  VAL(J$) <1  OR  VAL(J$) >2  THEN : FLASH : PRINT "THAT'S NOT ONE OF THE CHOICES": FOR N2 = 1 TO 3000: NEXT : NORMAL : GOTO 1019
  37. 1022  IF  VAL(J$) = 2  THEN : GOTO 1040
  38. 1030  GOSUB 50
  39. 1040  NEXT N1: FOR Z = 1 TO 24: IF C(Z,1) = 0  THEN : GOTO 1018
  40. 1042  NEXT Z
  41. 1050  CALL  -936: HTAB 9: PRINT "***ALLIANCES FORMED***": VTAB 3: HTAB 7: PRINT "IRAN": VTAB 3: HTAB 24: PRINT "IRAQ":Q1 = 4:Q2 = 4:Z1 = 4:Z2 = 22
  42. 1051  NORMAL : FOR CN = 1 TO 24
  43. 1052  IF C(CN,1) = 1  THEN : VTAB Q1: HTAB Q2: PRINT C$(CN):Q1 = Q1 +1
  44. 1053  IF C(CN,1) = 2  THEN : VTAB Z1: HTAB Z2: PRINT C$(CN):Z1 = Z1 +1
  45. 1054  NEXT CN
  46. 1055  PRINT "": PRINT "":: PRINT "NUCLEAR WEAPONS ARE READY TO FIRE": FOR N = 1 TO 3000: NEXT : HTAB 5: PRINT "THE FINAL APOCALYPSE IS BEGUN!": GOSUB 6000
  47. 1060  GOSUB 6000
  48. 1062  PRINT "": PRINT "": FLASH : HTAB 8: PRINT "LET THE WAR GAMES BEGIN": NORMAL 
  49. 1063  GOTO 1068
  50. 1064  FOR Z = 1 TO 2: POKE X,198: POKE Y,40: CALL TN: POKE X,198: POKE Y,40: CALL TN: POKE X,198: POKE Y,40: CALL TN: POKE X,147: POKE Y,255: CALL TN: FOR N = 1 TO 50: NEXT : NEXT 
  51. 1065  FOR Z = 1 TO 3: POKE X,198: POKE Y,40: CALL TN: POKE X,198: POKE Y,40: CALL TN: POKE X,198: POKE Y,40: CALL TN: POKE X,147: POKE Y,150: CALL TN: NEXT : RETURN 
  52. 1068  VTAB 1: PRINT  CHR$(4);"NOMON I,C,O"
  53. 1069  POKE 232,24: POKE 233,21: POKE 104,96: POKE 24576,0:: POKE 103,1:D$ =  CHR$(4)
  54. 1070  PRINT  CHR$(4);"RUN THE FINAL APOCALYPSE"
  55. 5000  DIM W$(20): DIM C$(24): DIM A$(8): DIM D$(4): DIM M(4,2): DATA   AIR FORCE,TANKS,INFANTRY,DEMOLITION,COMBAT SUPPLY,MISSILES,NUCLEAR ARMS,SPECIAL FORCES,CRUDE OIL,JET FUEL,FUEL OIL,FOOD,TEXTILES,REPAIRS,METALS,BATTLESHIPS  
  56. 5001  DATA      NUCLEAR SUBS,LR BOMBERS,GOLD,CURRENCY: FOR A = 1 TO 20: READ W$(A): NEXT 
  57. 5003  DATA  CANADA,U.S.A.,MEXICO,CENTRAL AMERICA,BRAZIL,ARGENTINA,PERU,GREAT BRITIAN,WESTERN EUROPE,EASTERN EUROPE,SCANDINAVIA,WEST AFRICA,EGYPT,SOUTH AFRICA,ISRAEL,MIDDLE EAST,U.S.S.R.
  58. 5004  DATA  CHINA,KOREA,JAPAN,INDONESIA,AUSTRALIA,MALAYSIA,INDIA: FOR A = 1 TO 24: READ C$(A): NEXT 
  59. 5010  FOR Z = 1 TO 24:C(Z,0) = 0:C(Z,1) = 0:E1% =  RND(1) *3 +1:I1% =  RND(1) *3 +4:E% = A(Z,E1%):I% = A(Z,I1%):C(Z,2) = E%:C(Z,3) = 1 + INT( RND(1) *W(2,E%)):C(Z,4) = I%:C(Z,5) = 1 + INT( RND(1) *W(2,I%)) + INT(W(2,I%)/2): NEXT Z: RETURN 
  60. 6000  PRINT D$;"OPEN ARMAGEDON"
  61. 6002  PRINT D$;"WRITE ARMAGEDON"
  62. 6004  FOR V = 1 TO 24: PRINT C(V,1): NEXT : FOR V = 0 TO 1: PRINT W(V,7): PRINT W(V,10): PRINT W(V,11): PRINT W(V,12): PRINT W(V,14): PRINT W(V,16): PRINT W(V,17): PRINT W(V,18): NEXT : PRINT P$(0): PRINT P$(1)
  63. 6005  PRINT D$;"CLOSE"
  64. 6006  RETURN